Descriptive statistics

RM <- read.csv("Residential Mortgages.csv",header=TRUE)
head(RM)

names(RM)

 [1] "ï..ContractRef"        "LoanBalance"          
 [3] "InterestType"          "InterestRate"         
 [5] "NIM"                   "MortgageType"         
 [7] "NewLoan"               "ProbationaryLoans"    
 [9] "DefaultedLoans"        "CreditRating"         
[11] "InterestIncome"        "LTV"                  
[13] "LTVCategory"           "MortgageYears"        
[15] "PropertyValue"         "AnnualPYMT"           
[17] "MaturityDate"          "BookingDate"          
[19] "LastValuationDate"     "ValuationAgeYears"    
[21] "CreditRatingMovement"  "County"               
[23] "Branch"                "Address"              
[25] "Town"                  "AddressLatitude"      
[27] "AddressLongitude"      "InArrears"            
[29] "ValueInArrears"        "DaysInArrears"        
[31] "ArrearsCategory"       "X._HousePriceMovement"
[33] "UpdatedPropertyValue"  "LTVUpdated"           
[35] "LTVCategoryUpdated"   

library(lattice)
par(mfrow = c(2,2))
df <- unique(RM[c(2:6,9:16,20,22,26:31)]) 
head(df)